home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / U-Utilities / (c)u2.d64 / tiny directory.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  2KB  |  60 lines
  1. 100 REM "TINY DIRECTORY"
  2. 110 REM PRINTS A TINY 2-COLUMN (null) ON A GEMINI PRINTER
  3. 120 REM MODIFIED BY R.B. WOLFF
  4. 130 :
  5. 140 XX=0
  6. 150 ESC$=CHR$(27)
  7. 160 PRINT "[147]PRINT A TINY 2-COLUMN DIRECTORY"
  8. 170 IF XX<>0 THEN 200
  9. 180 INPUT "[144]IS THE PRINTER ON (Y[146]/N[146])  Y[157][157][157]"; A$
  10. 190 IF A$<>"Y" THEN PRINT "[145][145]";: GOTO 180
  11. 200 DIM N$(144): REM LISTS UP TO 144 FILES ON DISK
  12. 210 OPEN 15,8,15
  13. 220 OPEN 4,4
  14. 230 PRINT#4, ESC$CHR$(64);: REM RESET PRINTER  ESC @
  15. 240 PRINT#4, ESC$CHR$(66)CHR$(3);: REM SETS 17 CPI  ESC B 3
  16. 250 PRINT#4, ESC$CHR$(83)CHR$(1);: REM SUBSRIPT MODE IS SELECTED  ESC S 1
  17. 260 PRINT#4, ESC$CHR$(86)CHR$(1);: REM ???  ESC V 1
  18. 270 PRINT#4, ESC$CHR$(65)CHR$(6);: REM CHANGE LINE FEED TO 6/72" (1/12") ESC A 6
  19. 280 PRINT "[155]INSERT A DISK IN DRIVE AND"
  20. 290 PRINT "THEN PRESS ANY KEY[154]"
  21. 300 GET A$: IF A$="" THEN 300
  22. 310 PRINT "[147]";
  23. 320 PRINT#15, "I"
  24. 330 CT=0: REM CT IS THE COUNT OF THE NUMBER OF DISK FILES
  25. 340 OPEN 2,8,0,"$0:*"
  26. 350 GET#2, A$,A$
  27. 360 GET#2, A$,A$,A$,B$
  28. 370 A=ASC(A$+CHR$(0))+256*ASC(B$+CHR$(0)): REM CALC FILE SIZE
  29. 380 IF ST THEN 530
  30. 390 L$=""
  31. 400 IF CT THEN L$=MID$(STR$(A)+"   ",2,3)
  32. 410 GET#2, A$
  33. 420 IF NOT(A$=CHR$(34) OR A$="B") THEN 410: REM SEARCH FOR " OR B
  34. 430 [137] 460
  35. 440 [161]#2, A$:  [139] A$[178]"" [167] 470
  36. 450 [139] ([198](A$)[175]127)[179]32 [167] 440
  37. 455 [139] [198](A$)[177]192 [167] A$[178][199]([198](A$)[171]128): [143] CONVERT TO COMMODORE UPPERCASE
  38. 460 L$[178]L$[170]A$: [137] 440: [143] FORM NEXT FILENAME
  39. 470 L$[178][200](L$,25): [143] TRUNCATE TO AT MOST 25 CHARACTERS
  40. 480 N$(CT)[178]L$: [143] PUT FILENAME IN NAME ARRAY
  41. 490 [139] CT[178]0 [167] [153] "";L$;"WAIT": [137] 510: [143] PUT DISK ID IN REVERSE VIDEO
  42. 500 [153] L$: [143] LIST FILENAME ON SCREEN
  43. 510 CT[178]CT[170]1
  44. 520 [137] 360
  45. 530 [152]4, "";N$(0): [143] PRINT [208] INFO
  46. 540 CT[178]CT[171]1: [143] ADD FREE BLOCKS TO PRINT OUT
  47. 550 N$(CT)[178][200](N$(CT),3)[170]" "[170][202](N$(CT),4): [143] PUT BLANK IN FREE BLOCK COUNT
  48. 560 MID[178][181](CT[173]2)
  49. 570 [129] I[178]1 [164] MID: [152]4, N$(I)"   "N$(I[170]MID): [130]
  50. 580 [139] CT[179][177]2[172][181](CT[173]2) [167] [152]4, [163]28);N$(CT): [143] CASE WHEN CT IS ODD
  51. 590 [152]4, " "
  52. 600 [152]4, ESC$[199](64): [143] RESET PRINTER  ESC @
  53. 610 [152]4, " "
  54. 620 [160] 2
  55. 630 [153] "LISTDO YOU WANT TO PRINT ANOTHER"
  56. 640 [133] "DIRECTORY (YWAIT/NWAIT)  YCMDCMDCMD"; A$
  57. 650 [139] A$[178]"Y" [167] [156]: XX[178]1: [137] 150
  58. 660 [153] "CONTLOAD"
  59. 670 [128]
  60.